﻿<%@page Language="vb" codepage=65001 aspCompat="True" StylesheetTheme="" theme=""%>
<%
Response.Buffer=true
Response.Expires=0
Response.CacheControl="no-cache"
Response.charset="utf-8"

dim ReturnValue as string

dim mmArt as New WebNote.WebNote()
ReturnValue=mmArt.isTimeOut
mmArt=Nothing
Response.clear()
Response.ContentType="text/xml"
Response.charset="utf-8"
Response.write("<?xml version=""1.0"" encoding=""utf-8""?>" & vbcrlf)
Response.write("<root requesttime=""" & now() & """>" & vbcrlf)
Response.write("<istimeout>" & Lcase(ReturnValue) & "</istimeout>" & vbcrlf)
Response.write("</root>" & vbcrlf)

%>
